home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / tools / nwtp06 / tstrip.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-10  |  705 b   |  31 lines
  1. Program tstRIP;
  2.  
  3. USES NwMisc,NwIPX,NwRIP;
  4.  
  5. Var ripInfo:TRIPinfo;
  6.     k,n    :word;
  7.     NetAddr:TnetworkAddress;
  8. begin
  9. IF NOT IPXinitialize
  10.  then begin
  11.       writeln('IPX must be loaded before this program can be ran.');
  12.       halt(1);
  13.       end;
  14. FillChar(NetAddr,4,#$0);   { own segment }
  15. n:=GetAllNetworks(NetAddr,ripInfo);
  16.  
  17. writeln;
  18. writeln('MAIN: ',n,' network segment(s) found.');
  19. writeln('Dumping the RIP tables of all found segments...');
  20. writeln;
  21.  
  22. writeln('NetAddr  Tcks Hops');
  23. for k:=1 to n
  24.  do begin
  25.     write(HexDumpStr(ripinfo[k].address,8));
  26.     write(' ',ripinfo[k].ticks:4);
  27.     writeln(' ',ripinfo[k].hops:4);
  28.     end;
  29. writeln('End of RIP table dump.');
  30. end.
  31.